perm filename SYS2.LSP[IL,LSP]3 blob sn#199990 filedate 1976-02-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(SETQ KLIST NIL)
C00006 ENDMK
CāŠ—;
(SETQ KLIST NIL)

(DEFPROP PLUS 
 (LAMBDA (L) (*EXPAND L (QUOTE *PLUS))) 
MACRO)

(DEFPROP DIFFERENCE 
 (LAMBDA (L) (*EXPAND L (QUOTE *DIF))) 
MACRO)

(DEFPROP TIMES 
 (LAMBDA (L) (*EXPAND L (QUOTE *TIMES))) 
MACRO)

(DEFPROP QUOTIENT 
 (LAMBDA (L) (*EXPAND L (QUOTE *QUO))) 
MACRO)

(DEFPROP LESSP 
 (LAMBDA(L)
  (LIST (QUOTE *LESS)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*LESS X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP GREATERP 
 (LAMBDA(L)
  (LIST (QUOTE *GREAT)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*GREAT X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP MIN
 (LAMBDA (L) (*EXPAND L (QUOTE *MIN)))
MACRO)

(DEFPROP MAX
 (LAMBDA (L) (*EXPAND L (QUOTE *MAX)))
MACRO)


(DE IF()
   (TERPRI(PRINC (TERPRI INITMES)))
   (INITFN (QUOTE (LAMBDA NIL (TERPRI(PRINC(TERPRI TOPMES)))))))